home *** CD-ROM | disk | FTP | other *** search
/ Compute! Gazette 1985 January / 1985-01.d64 / baker's dozen 4 (.txt) < prev    next >
Commodore BASIC  |  2022-09-20  |  1KB  |  37 lines
  1. 10 printchr$(147):poke53280,0:poke53281,0
  2. 20 forx=1to1000:next
  3. 30 printchr$(147)
  4. 40 dimp(156)
  5. 50 fork=1to156:readp(k):next
  6. 60 k=int(156*rnd(1))+1
  7. 70 b=p(k)+54272
  8. 80 c=int(14*rnd(1))+1
  9. 90 pokep(k),42:pokeb,c
  10. 100 goto60
  11. 110 data1042,1082,1122,1161,1162,1163
  12. 120 data1201,1202,1203,1241,1242,1243
  13. 130 data1280,1281,1282,1283,1284,1320
  14. 140 data1320,1321,1322,1323,1324,1360
  15. 150 data1361,1362,1363,1364,1399,1400
  16. 160 data1401,1402,1403,1404,1405,1439
  17. 170 data1440,1441,1442,1443,1444,1445
  18. 180 data1479,1480,1481,1482,1483,1484
  19. 190 data1485,1518,1519,1520,1521,1522
  20. 200 data1523,1524,1525,1526,1558,1559
  21. 210 data1560,1561,1562,1563,1564,1565
  22. 220 data1566,1598,1599,1600,1601,1602
  23. 230 data1603,1604,1605,1606,1637,1638
  24. 240 data1639,1640,1641,1642,1643,1644
  25. 250 data1645,1646,1647,1677,1678,1679
  26. 260 data1680,1681,1682,1683,1684,1685
  27. 270 data1686,1687,1717,1718,1719,1720
  28. 280 data1721,1722,1723,1724,1725,1726
  29. 290 data1727,1756,1757,1758,1759,1760
  30. 300 data1761,1762,1763,1764,1765,1766
  31. 310 data1767,1768,1796,1797,1798,1799
  32. 320 data1800,1801,1802,1803,1804,1805
  33. 330 data1806,1807,1808,1836,1837,1838
  34. 340 data1839,1840,1841,1842,1843,1844
  35. 350 data1845,1846,1847,1848,1882,1922
  36. 360 data1962,2000,2001,2002,2003,2004
  37.